<%
Function torneio_campeao(conexao, id_torneio, ByRef id_campeao, ByRef id_vice, ByRef id_artilheiro)

			str = "Select id_clube FROM torneios_clubes where id_torneio="&id_torneio&" ORDER BY fase desc, nivel desc, posicao asc, vantagem asc LIMIT 2"
    		Set rs = conexao.Execute(str)
			
			id_campeao = 0
			id_vice = 0
			id_artilheiro = 0
			
			If not rs.eof then
				id_campeao = rs("id_clube")
				rs.MoveNext
			End If
			
			If not rs.eof then
				id_vice = rs("id_clube")
			End If
			
			str = "Select id_clube FROM torneios_clubes where id_torneio="&id_torneio&" ORDER BY golspros desc, fase desc, nivel desc, posicao asc, vantagem asc LIMIT 1"
    		Set rs = conexao.Execute(str)
			
			If not rs.eof then
				id_artilheiro = rs("id_clube")
			End If
			
			'verificar se existe tabela jogadores_campeos para adicionar os jogadores que venceram
			'Tabela: id_jogador | id_torneio | tipo (1-campeao, 2-vice, 3-artilheiro)


End Function

%>
